home *** CD-ROM | disk | FTP | other *** search
/ Family Fun / Family Fun.iso / joke1 / jokes_m / merry.jok < prev    next >
Text File  |  1992-01-07  |  50KB  |  2,072 lines
  1. Article 254 of comp.sources.misc:
  2. Path: puukko!santra!tut!enea!mcvax!uunet!husc6!ukma!tut.cis.ohio-state.edu!mandrill!hal!ncoast!allbery
  3. From: rsk@mace.cc.purdue.edu (Rich Kulawiec)
  4. Newsgroups: comp.sources.misc
  5. Subject: v03i076: Just for fun (something which once appeared on the net)
  6. Message-ID: <8807101545.AA21634@mace.cc.purdue.edu>
  7. Date: 10 Jul 88 15:45:48 GMT
  8. Sender: allbery@ncoast.UUCP
  9. Reply-To: rsk@mace.cc.purdue.edu (Rich Kulawiec)
  10. Lines: 2008
  11. Approved: allbery@ncoast.UUCP
  12.  
  13. Posting-number: Volume 3, Issue 76
  14. Submitted-by: "Rich Kulawiec" <rsk@mace.cc.purdue.edu>
  15. Archive-name: xmases
  16.  
  17. [Only half a year late...  ;-)  ++bsa]
  18.  
  19. I found this while doing some housecleaning in my account, and thought
  20. it was marginally interesting enough to send along to you.
  21.  
  22. ---Rsk
  23.  
  24. From: ded@aplvax.UUCP
  25. Newsgroups: net.misc
  26. Subject: Merry Christmas Programs
  27. Organization: JHU/Applied Physics Lab, Laurel, MD
  28.  
  29.  
  30.  
  31. Well, here it is: the long awaited list of "Merry Christmas" programs.  
  32. If you are a crawled-out-from-under-a-rock sort of person and don't 
  33. know what's going on here, then you should read the following sentence:
  34. I don't know what's going on here either.  For some reason, I wanted
  35. to collect a group of programs which print the phrase "Merry Christmas"
  36. 15 times.  If you can figure out why I wanted to do this, please let 
  37. me know.
  38.  
  39. Thanks alot to all the nice folks who inundated me with mail.  Some of 
  40. the submissions made extremely clever use of editors and utility languages
  41. (I'm particularly fond of the UNIX shell script by Ben Hyde).  A few errors
  42. probably crept in due to transmission errors and my editing, and for that
  43. I apologize (because you're probably gonna be swamped by a horde of
  44. prepubescent fault finders).
  45.  
  46. Several of you requested that I (1) send you personal copies of the results,
  47. (2) send you only the more interesting examples, or (3) send you a report
  48. contrasting and comparing the various syntaxes.  I lost all your names.
  49.  
  50. If you sent me a submission and it wasn't included, then it either duplicated
  51. a previous entry or never arrived.  I deleted many comments to save space. 
  52. In retrospect, that was probably a mistake.
  53.                         --Don Davis
  54. ==========================================================================
  55.  
  56. /* 6502 assembly */
  57.  
  58. START    LDX #$0F
  59. LOOP1    LDY #$10
  60. LOOP2    LDA MCDATA,Y
  61.     JSR $FDF0    (CHAROUT or something like that)
  62.     DEY
  63.     BPL LOOP2
  64.     DEX
  65.     BPL LOOP1
  66.     RTS
  67.  
  68. MCDATA    ASC "
  69.  
  70.             ~ Kenn Frankel
  71.  
  72.             ...!sdcsvax!sdccs6!ix192
  73.  
  74. ==========================================================================
  75.  
  76. /* Ada version */
  77.  
  78.     with text_io; use text_io;
  79.     program print_merry_christmas is
  80.  
  81.     begin
  82.         for i in 1..15 loop
  83.             put("Merry Christmas"); new_line;
  84.         end loop;
  85.     end print_merry_Christmas;
  86.  
  87. I tested the program using the SuperSoft/Maranatha Ada compiler.
  88.    -- Dave Norris
  89.  
  90. ==========================================================================
  91.  
  92. /*  Ada  */
  93.  
  94. /*  This program is merely an ordinary loop.  It was developed by    */
  95. /*  Rob Pearce of JHU/APL. Oh yes; Rob is English.                    */
  96.  
  97.     1   with text_io; use text_io;
  98.     2
  99.     3   procedure number_a is
  100.     4
  101.     5     i_max:constant integer:=15;
  102.     6     type i_type is range 1..i_max;
  103.     7
  104.     8     package i_type_io is new integer_io(num=>i_type);
  105.     9
  106.    10   begin  -- number_a
  107.    11     for i in i_type loop
  108.    12       i_type_io.put(item=>i,
  109.    13                     width=>2);
  110.    14       put("  " &
  111.    15           "God save the Queen");
  112.    16       new_line;
  113.    17     end loop;
  114.    18   end number_a;
  115.  
  116. ==========================================================================
  117.  
  118. /* Ada */
  119.  
  120. -- This program counts to 15, but does so  via  three  "concurrently
  121. -- executing"  tasks.   The  output has been modified to be a single
  122. -- character instead of the full  "Merry  Christmas"  message.   The
  123. -- first  task  prints,  sequentially,  0..4.  The second prints, in
  124. -- turn, 5..9; and the third sequentially prints A..E.
  125. -- 
  126. -- If we had used the full "Merry Christmas" line,  then  the  three
  127. -- concurrent  tasks would have (almost certainly) interleaved their
  128. -- respective character strings, and one would have not been able to
  129. -- read any of the messages!
  130. -- 
  131. -- The program was developed by Rob Pearce of JHU/APL, and  was  run
  132. -- on a validated Ada system, the NY University, Ada/ED. The machine
  133. -- was a VAX-11/750 under typical loading. (Note the times;  they're
  134. -- about  the  same  on an empty machine, too!) The listing has been
  135. -- edited to remove the "uninteresting" lines and the  #$^&  control
  136. -- characters.
  137. --                    Mars Gralia
  138. --                    11/11/8
  139.  
  140. NYU ANSI-Ada/ED 1.1(11-Apr-83)            FRI  11 NOV 83  09:27:31   PAGE     1
  141.  
  142.     1   with text_io; use text_io;
  143.     2
  144.     3   procedure number_f is
  145.     4
  146.     5     task A;
  147.     6     task B;
  148.     7     task C;
  149.     8
  150.     9
  151.    10     task body A is
  152.    11
  153.    12     begin  -- A
  154.    13       for ch in character range '0'..'4' loop
  155.    14         put(ch);
  156.    15       end loop;
  157.    16     end A;
  158.    17
  159.    18
  160.    19     task body B is
  161.    20
  162.    21     begin  -- B
  163.    22       for ch in character range '5'..'9' loop
  164.    23         put(ch);
  165.    24       end loop;
  166.    25     end B;
  167.    26
  168.    27
  169.    28     task body C is
  170.    29
  171.    30     begin  -- C
  172.    31       for ch in character range 'A'..'E' loop
  173.    32         put(ch);
  174.    33       end loop;
  175.    34     end C;
  176.    35
  177.    36
  178.    37   begin  -- number_f
  179.    38     null;
  180.    39   end number_f;
  181.  
  182.   No translation errors detected
  183.   Translation time: 69 seconds
  184.  
  185.  
  186. NYU ANSI-Ada/ED 1.1(11-Apr-83)            FRI  11 NOV 83  10:34:05   PAGE     1
  187.  
  188.   Binding time: 3.3 seconds
  189.  
  190.   Begin Ada execution
  191.  
  192. 5A06B127C38D94E
  193.  
  194.   Execution complete
  195.   Execution time: 51 seconds
  196.   I-code statements executed: 97
  197.  
  198. ==========================================================================
  199.  
  200. /* Algol-60 */
  201.  
  202. begin comment Algol-60 version.  "Print" is system defined;
  203. integer i;
  204.  
  205. for i := 1 step 1 until 15 do Print("Merry Christmas")
  206.  
  207. end
  208.  
  209.                   --  chip elliott     ...decvax!dartvax!chip
  210.  
  211. ==========================================================================
  212.  
  213. /* Algol-68 */
  214.  
  215.     BEGIN
  216.     TO 15
  217.         DO
  218.         print(("Merry Christmas",newline))
  219.         OD
  220.     END
  221.  
  222.       -- Andrew Klossner   (decvax!tektronix!tekecs!andrew)  [UUCP]
  223.                    (andrew.tektronix@rand-relay)     [ARPA]
  224.  
  225.  
  226. ==========================================================================
  227.  
  228. /* APL */
  229. __
  230. \/ PROG ; S
  231.      ___                    __
  232. [1]  ! ! <- (15, pS) p S <- 'Merry Christmas'   \/
  233.      ---
  234.  
  235. Here's an APL version.  Since APL uses more than the ASCII character set,
  236. I had to fake it some.  The triangle is the greek character 'del' (an
  237. upside-down delta), the first symbol on line [1] is a 'quad', a
  238. rectangular block, the '<-' is a left arrow, and the lower-case 'p'
  239. is the greek character 'rho'.  Have fun.
  240.  
  241.                     ^-^ Bruce ^-^
  242.  
  243. ==========================================================================
  244.  
  245. /* APL */
  246.  
  247.     15 15 rho 'Merry Christmas'
  248.  
  249. (rho is the greek letter of that name, the reshape operator in APL)
  250.  
  251. That may not count, since it's more like an expression than a
  252. program, but it will do what you asked for.  I guess you could make
  253. it a program if you wanted, as follows:
  254.  
  255.     del merry
  256.     [1] 15 15 rho 'Merry Christmas'
  257.     del
  258.  
  259. (del is a little upside-down triangle)
  260.  
  261.                     Joe Ziegler
  262.                     ...ihnp4!pegasus!lzmi!ziegler
  263.  
  264. ==========================================================================
  265.  
  266. /* APL */
  267.  
  268.     Here is an APL Merry Christmas. Since APL uses a different chracter set,
  269. I will use the following identifiers for non-ascii chracters:
  270.     RHO - greek letter rho
  271.     BOX - the rectangle or window character
  272.     ASGN - the back-arrow assignment character
  273.     TRI - upside-down triangle
  274.  
  275. TRI merry ; mesg
  276. BOX ASGN (15,RHO mesg)RHO mesg ASGN "Merry Christmas"
  277. TRI
  278.  
  279.             ---From some unknown person on the other side of uucp 
  280.  
  281. ==========================================================================
  282. /* AWK */
  283.     awk 'BEGIN {for (i=1;i<=15;i++) print "Merry Xmas"}' /dev/null
  284.  
  285.             From: seismo!mcvax!steven (Steven Pemberton)
  286. ==========================================================================
  287.  
  288. /* AWK */
  289. (note that it wants some standard input):
  290.     
  291. BEGIN { for (i = 0; i < 15; i++) {
  292.     printf "Merry Christmas\n"
  293.     }   
  294. }   
  295.     
  296.             From: David Chase <rbbb@rice>
  297.                 
  298. ==========================================================================
  299.  
  300. /* B */
  301. (not the predecessor of "C", by the way).
  302.  
  303.     HOW'TO MERRY'CHRISTMAS:
  304.     FOR i IN {1..15}:
  305.         WRITE 'Merry Christmas' /
  306.  
  307. The string quote in B is used like the underscore in "C".
  308. HOW'TO introduces a procedure declaration.
  309. Indentation is used for grouping statements.
  310. The slash is used in WRITE-commands to indicate a newline.
  311. Actually, this definition should be followed by a call:
  312.  
  313.     MERRY'CHRISTMAS
  314.  
  315. You could also write the body of the procedure instead of the call,
  316. and then would have no need for the definition ("B" has no clear
  317. notion of what a program is; usually it's a group of procedures
  318. and functions living together in a workspace).
  319.  
  320. --
  321. Guido van Rossum, "B Group",
  322. Centre for Mathematics and Computer Science, (CWI, formerly MC), Amsterdam
  323. {philabs,decvax}!mcvax!guido
  324.  
  325. ==========================================================================
  326.  
  327. /* Applesoft BASIC */
  328.  
  329. 10 FOR I = 1 TO 10 : PRINT "MERRY CHRISTMAS" : NEXT I
  330.  
  331.             ---From some unknown person on the other side of uucp 
  332.  
  333. ==========================================================================
  334.     
  335. /* Basic-Plus (DEC Basic on RSTS/E) */
  336.     
  337.         10    ! Merry Christmas program &
  338.             ! Written by David Kaufman for Usenet survey
  339.     
  340.         20 For I = 1 to 15 \ &
  341.             Print "Merry Christmas" \ &
  342.             Next I
  343.     
  344.         30 End     ! Optional, but helps reloading command
  345.     
  346.         Merry Christmas!
  347.             David Kaufman
  348.             ...decvax!yale-comix!kaufman
  349.  
  350. ==========================================================================
  351.  
  352. /* BASIC */
  353.  
  354. 1000 i=0
  355. 1010 if i=15 then goto 1050
  356. 1020 print 'Merry Christmas'
  357. 1030 i = i+1
  358. 1040 goto 1010
  359. 1050 end
  360.  
  361.                         That's All
  362.                         Dave Wargo
  363.                         UCSD
  364.  
  365. ==========================================================================
  366.  
  367. /* bc */
  368.  
  369. bc<<!
  370. for(i=19^83;i<=19^83+14;i++) "Merry Christmas
  371. "
  372. !
  373.                     --unknown hacker
  374.  
  375. ==========================================================================
  376.  
  377. /* BCPL */
  378.  
  379.         // Cambridge IBM implementation
  380.         get "libhdr"
  381.         let start(parm) be $(
  382.             selectoutput(findoutput("sysprint"))
  383.             for i := 1 to 15 do writef("Merry Christmas*N")
  384.         $)  
  385.  
  386.                     These languages courtesy of:
  387.                         Pavel Curtis, Cornell
  388.                         Mike Caplinger, Rice
  389.  
  390. ==========================================================================
  391.  
  392. /* BCPL */
  393.  
  394. GET "libhdr"
  395.  
  396. LET start() BE
  397.     FOR index = 1 TO 15 DO writes("Merry Christmas*n")
  398.  
  399.  
  400.             From: jd@ukc.UUCP
  401.             Organization: Computing Lab. Kent University, England
  402.  
  403. ==========================================================================
  404.  
  405. /* Bliss-11 */
  406.  
  407. module Christmas =
  408. begin \Main\
  409.  
  410. external MsgScan;
  411. local i;
  412.  
  413. incr i from 1 to 15 do
  414.   MsgScan( uplit asciz "Merry Christmas%C" );
  415.  
  416. end \Main\
  417. eludom
  418.  
  419.                 From: leiby
  420.  
  421. ==========================================================================
  422.  
  423. /* C */
  424.  
  425. main()
  426. {
  427.     int i;
  428.  
  429.     for (i=0; i<15; i++)
  430.         printf("Merry Christmas\n");
  431. }
  432.                         by Don Davis
  433.  
  434. ==========================================================================
  435.  
  436. /* CDC 6000-type assembly */
  437.  
  438.         IDENT   MERRY
  439.         ENTRY   MERRY
  440.         SYSCOM  B1
  441.  
  442. OUTPUT  FILEB   OBUF,101B,FET=8
  443. OBUF    BSS     101B
  444.  
  445. COUNT   DATA    14
  446.  
  447.  
  448. MERRY   SB1     1
  449.  
  450. MERRY1  WRITEC  OUTPUT,(=C*MERRY CHRISTMAS*)
  451.  
  452.         SA1     COUNT
  453.         SX6     X1-1
  454.         SA6     COUNT
  455.         NZ      X1,MERRY1
  456.  
  457.         WRITER  OUTPUT,R
  458.         ENDRUN
  459.         END     MERRY
  460.  
  461. Jeff Lee
  462. CSNet:    Jeff @ GATech        ARPA:    Jeff.GATech @ CSNet-Relay
  463. uucp:    ...!{sb1,allegra,ut-ngp}!gatech!jeff ...!duke!mcnc!msdc!gatech!jeff
  464.  
  465. ==========================================================================
  466.  
  467. /* CGOL */
  468. ( an extensible language that translates into MACLISP)
  469.  
  470.     for i in 1 to 15 do print "Merry Christmas"<ESC>
  471.  
  472. The value of this expression is nil, if you really want a list of them,
  473.  
  474.     for i in 1 to 15 collect "Merry Christmas"<ESC>
  475.  
  476.                 Garret Swart
  477.  
  478. ==========================================================================
  479.  
  480. /* CLI */
  481. To print Merry Christmas 15 times under Data General's CLI's (command line
  482. interpreters):
  483.  
  484.     RDOS, RTOS, DOS:    MESSAGE Merry Christmas(,,,,,,,,,,,,,,,)
  485.     AOS, AOS/VS:        write Merry Christmas(,,,,,,,,,,,,,,,)
  486.  
  487. (for your information, the parenthesis indicate that the command will be
  488. executed multiple times, with possible subsitutions, so "write a(b,c) d" would
  489. write two lines:  "abd" and "acd".  Since nothing is substituted, the same
  490. command is executed 15 times.  BTW, write can be abreviated to "wr", "wri", ...)
  491.  
  492.                 Michael Meissner
  493.                 Data General Corporation
  494.                 ...{allegra, decvax!ittvax, rocky2}!datagen!mrm
  495.  
  496. ==========================================================================
  497.  
  498. /* CLU */
  499.  
  500. start_up = proc ()
  501.     po: stream := stream$primary_output ()
  502.     for i: int in int$from_to (1, 15) do
  503.         stream$putl (po, "Merry Christmas")
  504.     end
  505.     end start_up
  506.  
  507.                 Happy Hacking!
  508.  
  509.                 Russell Finn
  510.                 {decvax, eagle, mit-eddie}!mit-vax!russ
  511.                 RUSS%MIT-VAX@MIT-ML
  512.  
  513. ==========================================================================
  514.  
  515. /* CLU */
  516. (Liskov, August 1977 CACM)
  517.  
  518. start_up = proc ()
  519.    for i: int in int$from_to(1, 15) do
  520.       stream$putl(stream$primary_output(), "Merry Christmas")
  521.    end
  522. end start_up
  523.  
  524.             Original-From:     J. Dean Brock <brock@unc>
  525.  
  526. ==========================================================================
  527.  
  528. /* COBOL */
  529.  
  530.        IDENTIFICATION DIVISION. 
  531.        PROGRAM-ID. XMASPRINT.
  532.        ENVIRONMENT DIVISION.
  533.        CONFIGURATION SECTION.
  534.        SOURCE-COMPUTER. UNIVAC-1110.
  535.        OBJECT-COMPUTER. UNIVAC-1110.
  536.        DATA DIVISION.
  537.        PROCEDURE DIVISION.  
  538.        0000-MAIN.
  539.            PERFORM 10-PRINT 15 TIMES.
  540.            STOP RUN.
  541.        10-PRINT.  DISPLAY 'Merry Christmas' UPON PRINTER.
  542.  
  543.         From: seismo!decvax!sdcsvax!ittvax!dcdwest!noscvax!kemp
  544.  
  545. ==========================================================================
  546.  
  547. /* Cprolog */
  548.  
  549. /* Write Merry Christmas 15 times in 4.1bsd Cprolog 
  550.  *  To execute, get into prolog, then issue the commands:
  551.  *  |?- ['xmas.p'].
  552.  *  |?- xmas.
  553.  */
  554.  
  555. xmas :- name(Text,"Merry Christmas") , writeline(Text,15).
  556. writeline(_,0).
  557. writeline(Text,N) :- write(Text) , nl , M is N - 1 , writeline(Text,M).
  558.  
  559.         From: seismo!decvax!microsof!ubc-vision!mprvaxa!tbray
  560.                 
  561. ==========================================================================
  562.  
  563. /* dBASEII */
  564.  
  565.     store 0 to number
  566.     do while number < 15
  567.         ? "Merry Christmas"
  568.         store 1+number to number
  569.     enddo
  570.     release number
  571.  
  572.                 From: seismo!philabs!sbcs!BNL!jeffy
  573.                     --Jeff M.
  574.  
  575. ==========================================================================
  576.  
  577. /* dBASE II */
  578.  
  579. SET TALK OFF
  580. STORE 0 TO counter
  581. DO WHILE counter < 15
  582.     @ counter, 0 SAY "Merry Christmas"
  583.     STORE counter + 1 TO counter
  584. ENDDO
  585. RETURN
  586.  
  587.                 From: mike@uokvax.UUCP
  588.  
  589. ==========================================================================
  590.  
  591. /* 'csh' command version */
  592.  
  593. repeat 15 echo Merry Christmas
  594.  
  595.             Original-From:     Bruce Israel <israel@umcp-cs>
  596.  
  597. ==========================================================================
  598. /*  DCL (VAX/VMS shell) */
  599.                 
  600.         $ i = 1
  601.         $ loop:
  602.         $ if i.gt.15 then goto done
  603.         $ write sys$output "Merry Christmas"
  604.         $ i = i + 1
  605.         $ goto loop
  606.         $ done:
  607.         $ exit
  608.                 
  609.         From: David Chase <rbbb@rice>
  610.  
  611. ==========================================================================
  612.                 
  613. /* DCL */
  614. And (as I noticed that Un*x shell scripts were on your list, and in
  615. the interest of equal time) here it is in DCL (Digital Command
  616. Language, a CLI which runs on many DEC machines -- I cut my teeth on
  617. VAX/VMS):
  618.  
  619. $ i = 1
  620. $ loop:
  621. $ write sys$output "Merry Christmas"
  622. $ i = i + 1
  623. $ if i .le. 15 then goto loop
  624. $ exit
  625.  
  626.                 Happy Hacking!
  627.  
  628.                 Russell Finn
  629.                 {decvax, eagle, mit-eddie}!mit-vax!russ
  630.                 RUSS%MIT-VAX@MIT-ML
  631.  
  632. ==========================================================================
  633.  
  634. /* DDL */
  635.  
  636. Here is a Merry Christmas program written in DDL. Yes DDL, the Dungeon
  637. Definition Language from UCLA. I have included a makefile
  638. in case you have never seen this stuff before.
  639.  
  640. *********************** xmas.ddl *************************
  641. VAR count;
  642. (count) = 1;
  643.  
  644. Greetings =    ( WHILE ( $lt @count 15 ) :
  645.         ( $setg count ( $plus 1 @count ))
  646.         ( $say "Merry Christmas\n")
  647.     )
  648.     ($spec 3 0 0 0 0);
  649.  
  650. START = ($sdem Greetings);
  651.  
  652. *********************** makefile *************************
  653.  
  654. xmas:
  655.     /usr/src/games/ddl/ddlcomp tiny < tiny.ddl > ddlcomp.out
  656.  
  657. To run it type the following
  658.  
  659.     `/usr/games/lib/ddlrun xmas'
  660.  
  661.  
  662.                 - Joel
  663.  
  664. ==========================================================================
  665.  
  666. /* ed */
  667.  
  668.     ed - /etc/passwd<<!
  669.     1,15g/./s/.*/Merry Christmas/p
  670.     q
  671.     !
  672.  
  673.         From: seismo!mcvax!steven (Steven Pemberton)
  674.  
  675. ==========================================================================
  676. /* ed  */
  677. (UNIX 'standard' line editor):
  678.  
  679.         a   
  680.         Merry Christmas
  681.         .   
  682.         t.  
  683.         t.  
  684.         t.  
  685.         t.  
  686.         t.  
  687.         t.  
  688.         t.  
  689.         t.  
  690.         t.  
  691.         t.  
  692.         t.  
  693.         t.  
  694.         t.  
  695.         t.  
  696.         t.  
  697.         1,$p
  698.  
  699.                     These languages courtesy of:
  700.                         Pavel Curtis, Cornell
  701.                         Mike Caplinger, Rice
  702.  
  703. ==========================================================================
  704.  
  705. /* Concurrent-Euclid */
  706. ------------------
  707. var xmas :
  708.     module
  709.     include '%IO'
  710.     initially
  711.     imports (var IO)
  712.     begin
  713.         var i : ShortInt := 0
  714.         loop
  715.         IO.PutString ('Merry Christmas$N$E')
  716.         i := i + 1
  717.         exit when i = 15
  718.         end loop
  719.     end
  720. end module {xmas}
  721. ------------------
  722.  
  723. Stephen Perelgut    Computer Systems Research Group    University of Toronto
  724.         Usenet:    {linus, ihnp4, allegra, decvax, floyd}!utcsrgv!perelgut
  725.  
  726. ==========================================================================
  727.  
  728. /* Concurrent Euclid */
  729.  
  730. var MerryChristmas :
  731.     module
  732.  
  733.     include '%IO'
  734.  
  735.     initially
  736.  
  737.     imports (var IO)
  738.     begin
  739.         var i: SignedInt := 15
  740.  
  741.         loop
  742.         IO.PutString('Merry Christmas$N$E')
  743.         i := i - 1
  744.         exit when i = 0
  745.         end loop
  746.     end
  747.  
  748. end module
  749.  
  750.                 From utcsrgv!utai!rayan 
  751.  
  752. ==========================================================================
  753.  
  754. /* EYE */
  755.  
  756. Since you said "the more obscure the better", here is the program written in
  757. EYE, a language which was implemented by Kuck & Associates, Inc. of 
  758. Champaign, Illinois as an implementation language for writing a large piece
  759. of software.
  760.  
  761. program yule_tidings is
  762.  
  763. constant number_of_times_to_print_merry_christmas : integer = 15;
  764.  
  765. begin( yule_tidings )
  766.  
  767.     for i:integer = 1 to number_of_times_to_print_merry_christmas
  768.     loop( print_merry_christmas )
  769.  
  770.         put( 'Merry Christmas' | );
  771.  
  772.         endloop( print_merry_christmas );
  773.  
  774.     end( yule_tidings );
  775.                     Jim Davies
  776.                     {pur-ee parsec}!uiucdcs!uiuccsb!davies
  777.  
  778. ==========================================================================
  779.   
  780. /*  FRED  */
  781. (a text editor)
  782.  
  783. u15 jm Merry Christmas
  784.  
  785.                 From: decvax!watmath!ljdickey
  786.  
  787. ==========================================================================
  788.  
  789. /* Forth */
  790.  
  791. (Forth)
  792. 15 0 DO ."Merry Christmas" CR LOOP
  793.  
  794.                     Adam Reed
  795.                     AT&T Information Systems
  796.                     ihnp4!hogpc!pegasus!lzmi!adam
  797.  
  798. ==========================================================================
  799.  
  800. /* Forth */
  801.  
  802. : greetings cr 0 do ." Merry Christmas" cr loop ;
  803.  
  804. 15 greetings
  805.  
  806.  
  807.                 Dave Seaman
  808.                 ..!pur-ee!pucc-k:ags
  809.  
  810. ==========================================================================
  811.  
  812. /* Fortran? */
  813.  
  814. If you want an obscure solution, try the following Fortran
  815. on a VAX.  It works on BSD4.1, BSD4.1c and System V.
  816.  
  817.     integer table(12)
  818.     data table/248514560, -552542885, 4847, -83763968
  819.      1, 323331, 1542717440, 1260, 1292108988
  820.      2, 2037543525, 1919435552, 1836348265, 684897/
  821.     call out(table)
  822.     end
  823.  
  824.     subroutine out(code)
  825.     external code
  826.     call code
  827.     return
  828.     end
  829. -- 
  830.  
  831. Griff Smith    AT&T Bell Laboratories, Murray Hill
  832. Phone:        (201) 582-7736
  833. Internet:    ggs@ulysses.uucp
  834. UUCP:        ulysses!ggs
  835.  
  836. ==========================================================================
  837.  
  838. /* Fortran 77 */
  839.  
  840.       program yule
  841.       parameter (nwish = 15)
  842. c
  843.       do 1 i = 1,nwish
  844.     1   print*,'Merry Christmas'
  845. c
  846.       end
  847.                     Jim Davies
  848.                     {pur-ee parsec}!uiucdcs!uiuccsb!davies
  849.  
  850. ==========================================================================
  851.  
  852. /* FP */
  853. (Backus' Functional Programming Language):
  854. (Using the syntax of Scott Baden's UNIX implementation)
  855.  
  856.         ; MC prints the string 'Merry Christmas' 15 times when applied
  857.         ;                       to any argument and returns T.
  858.         {MC     %T @ out @ &%"Merry Christmas\n" @ iota @ %15}
  859.  
  860.                     These languages courtesy of:
  861.                         Pavel Curtis, Cornell
  862.                         Mike Caplinger, Rice
  863.  
  864. ==========================================================================
  865.  
  866. /* GPSS */ 
  867.  
  868.     SIMULATE
  869.     GENERATE    1
  870.     TERMINATE    1
  871.     START        15,,1
  872.     REPORT
  873.     TEXT        MERRY CHRISTMAS
  874.     END
  875.  
  876.             ---From some unknown person on the other side of uucp 
  877.  
  878. ==========================================================================
  879.  
  880. /* IBM 370 assembly */
  881.  
  882. How about this one (IBM 370 assembler running VM/VPS - a local hack at Boston
  883. University):
  884.  
  885. xmas      csect
  886.           stm     r14,r12,12(r13)
  887.           lr      r12,r15
  888.           using   xmas,r12
  889.           st      r13,savearea+4
  890.           la      r13,savearea
  891.  
  892. *
  893. *         Initialize counter
  894. *
  895.  
  896. xmasloop  ds      0h
  897.           la      r2,15                   Print it 15 times
  898.           qio     rb=xmasrb               Print "Merry Christmas"
  899.           bct     r2,xmasloop
  900.  
  901.           l       r13,4(,r13)             Restore registers
  902.           lm      r14,r12,12(r13)
  903.           br      r14                     Return to OS
  904.  
  905. xmasrb    qiorb   ddname=sysprint,bufad=xmasmsg,lrecl=l'xmasmsg
  906. xmasmsg   dc      c' Merry Christmas'     Don't forget carriage control
  907.           end     xmas
  908.  
  909.  
  910. If that isn't obscure, I don't know what is.
  911.  
  912.             ---Sender: reg@ima!vaxine.UUCP
  913.  
  914. ==========================================================================
  915.  
  916. /* Icon */
  917.  
  918.     # write "Merry Christmas" 15 times on standard output
  919.     procedure main()
  920.         every 1 to 15 do write("Merry Christmas")
  921.     end
  922.  
  923. "1 to 15" is a generator which produces the sequence 1..15;
  924. "every X do Y" evaluates Y for each value of X;
  925. write() writes a line of text.
  926.  
  927.                     Randy Hudson
  928.                     decvax!cca!ima!inmet!rgh
  929.  
  930. ==========================================================================
  931.  
  932. /* Icon (Version 5) */
  933.  
  934. procedure main()
  935.     every write(|"Merry Christmas") \ 15
  936. end
  937.  
  938. The more canonical solution is:
  939.  
  940. procedure main()
  941.     every 1 to 15 do
  942.         write("Merry Christmas")
  943. end
  944.  
  945. but obviously isn't as devious.
  946.  
  947.                     ---Bill Mitchell
  948.  
  949. ==========================================================================
  950.  
  951. /* Imp80 */
  952.  
  953. %begin
  954.     %integer index
  955.  
  956.     %for index = 1, 1, 15 %cycle
  957.         Print String("Merry Christmas")
  958.         New Line
  959.     %repeat
  960. %end %of %program
  961.  
  962.                 From: jd@ukc.UUCP
  963.         Organization: Computing Lab. Kent University, England
  964.  
  965. ==========================================================================
  966.  
  967. /* The Kent Recursive Calculator */
  968.  
  969.     there you are, here is the merry christmas program in my favourite 
  970.     language, krc (The Kent Recursive Calculator),
  971.     a teaching and research applicative language used at the University of
  972.     Kent, Canterbury, UK.
  973.     the syntax is annexed and requests for the full formal description
  974.     of the language (syntax+semantics) will be considered.
  975.     the program is:
  976.  
  977.     print 0 = []
  978.     print n = "Merry Christmas":nl:print (n-1)
  979.  
  980.     and the command to run it (in the interpreter) is
  981.  
  982.     print 15!
  983.  
  984.     silvio lemos meira
  985.     computing lab
  986.     university of kent at canterbury
  987.     ...vax135!ukc!srlm
  988.  
  989.     SYNTAX...
  990.  
  991. (note: space is limited, but the syntax is available upon request;
  992.     just send me a stamped, self-addressed antelope -- Don Davis)
  993.  
  994. ==========================================================================
  995.  
  996. /* LISP */
  997.  
  998.    (do ((i 0 (add1 i)))
  999.        ((eq i 15))
  1000.        (msg "Merry Christmas" N))
  1001.  
  1002.  
  1003.                 Dave Seaman
  1004.                 ..!pur-ee!pucc-k:ags
  1005.  
  1006. ==========================================================================
  1007.  
  1008. /* Scheme or Maclisp or Franz Lisp */
  1009. ;
  1010. (do ((i 0 (+ i 1)))
  1011.     ((= i 15))
  1012.     (princ "Merry Christmas")
  1013.     (terpri)   ;new line
  1014. )
  1015.  
  1016.                   --  chip elliott     ...decvax!dartvax!chip
  1017.  
  1018. ==========================================================================
  1019.  
  1020. /* MTS Lisp */
  1021.  
  1022.   (repeat '( print '"Merry Christmas") 15)    # MTS Lisp.
  1023.                  Bruce Wilcox, Intermetrics Inc.
  1024.  
  1025. ==========================================================================
  1026.  
  1027. /* LSRHS Logo */
  1028. (from the Usenix82 tape):
  1029.  
  1030. to greet :n
  1031. 10  if :n >1 then greet (:n - 1)
  1032. 20  print [Merry Christmas]
  1033. end
  1034. greet 15
  1035.  
  1036.         From: seismo!decvax!trw-unix!trwspp!urban (Mike Urban)
  1037.  
  1038. ==========================================================================
  1039.  
  1040. /* Logo */
  1041.  
  1042.         repeat 15 [print "Merry\ Christmas]
  1043.  
  1044.                     These languages courtesy of:
  1045.                         Pavel Curtis, Cornell
  1046.                         Mike Caplinger, Rice
  1047.  
  1048. ==========================================================================
  1049.  
  1050. /* LSE */
  1051.  
  1052. Here's a language you probably have never heard of... LSE (Langue
  1053. Symbolique d'Instruction, or Symbolic Language of Instruction).  I
  1054. used it on some ancient machine in France (of French make) and it is
  1055. roughly parallel to BASIC translated to French.  It sure isn't my
  1056. favorite, but it's interesting...
  1057.  
  1058. 10 pour i = 1 jusqua 15 faire 20
  1059. 20 afficher "Merry Christmas"
  1060.  
  1061.  
  1062.                 Philippe Lacroute
  1063.                 ..decvax!sun!cochon
  1064.  
  1065. ==========================================================================
  1066.  
  1067. /* m4 */
  1068.  
  1069. define(`merry',`ifelse(eval($1),eval(0),,Merry Christmas
  1070. `merry'(eval($1-1)))')dnl
  1071. merry(15)dnl
  1072.  
  1073.  
  1074.  
  1075.                     Joseph L. Wood, III
  1076.                     AT&T Information Systems
  1077.                     Laboratories, Holmdel
  1078.                     (201) 834-3759
  1079.                     ariel!jlw
  1080.  
  1081. ==========================================================================
  1082.  
  1083. /* MACSYMA */
  1084.  
  1085.         doit() := for i:1 thru 15 do print("Merry Christmas")$
  1086.  
  1087.                     These languages courtesy of:
  1088.                         Pavel Curtis, Cornell
  1089.                         Mike Caplinger, Rice
  1090.  
  1091. ==========================================================================
  1092.  
  1093. /* make */
  1094.  
  1095. If you use the following as the description file for 'make', it
  1096. will satisfy your requirement.  Make can be considered a language
  1097. interpreter, so what the heck.
  1098.  
  1099. ---------------------- cut ------- here -----------------------------------
  1100. .SILENT:
  1101.  
  1102. foo_._bar_ :                    # some name unlikely to already exist
  1103.     echo merry christmas
  1104.     echo merry christmas
  1105.     echo merry christmas
  1106.     echo merry christmas
  1107.     echo merry christmas
  1108.     echo merry christmas
  1109.     echo merry christmas
  1110.     echo merry christmas
  1111.     echo merry christmas
  1112.     echo merry christmas
  1113.     echo merry christmas
  1114.     echo merry christmas
  1115.     echo merry christmas
  1116.     echo merry christmas
  1117.     echo merry christmas
  1118.  
  1119.             ---From some unknown person on the other side of uucp 
  1120.  
  1121. ==========================================================================
  1122.  
  1123. /* A Maryland Text Editor procedure */
  1124. ---------------------------------
  1125. let a=0 
  1126. next:test a<15  
  1127. escape  
  1128. dis 'Merry Christmas'
  1129. let a=a+1
  1130. jump next
  1131.  
  1132. From: seismo!decvax!sdcsvax!ittvax!dcdwest!noscvax!kemp
  1133.  
  1134. ==========================================================================
  1135.  
  1136. /* Mesa 5.0 */
  1137.  
  1138. -- Here it is in Mesa 5.0; good luck trying to find an Alto or a D-machine
  1139. -- on which to run it.
  1140.  
  1141. DIRECTORY
  1142.         IODefs: FROM "iodefs" USING [WriteLine];
  1143.  
  1144. MerryChristmas: PROGRAM IMPORTS IODefs =
  1145.  
  1146.         BEGIN
  1147.         i: INTEGER; -- loop index
  1148.         FOR i IN [0..15) DO -- print the message 15 times
  1149.                 WriteLine["Merry Christmas"]; -- this is the message, and the
  1150.                                               -- procedure WriteLine[] provides
  1151.                                               -- the carriage return
  1152.                 ENDLOOP; -- go back and do it again
  1153.  
  1154.         END. -- all done
  1155.  
  1156.                 -- Patrick Olmstead
  1157.  
  1158.                 -- ...ucbvax!menlo70!sytek!olmstead
  1159.                 -- ...decvax!sytek!olmstead (when decvax answers the phone)
  1160.  
  1161. ==========================================================================
  1162.  
  1163. /* MIX */
  1164.  
  1165. *
  1166. *  THIS PROGRAM WILL PRINT "MERRY CHRISTMAS" 15 TIMES 
  1167. *
  1168. LP         EQU  18        CARD PUNCH DEVICE
  1169. *
  1170. MSG        ALF   MERR        DON'T FORGET THE BLANK SPACE FOR CCTL
  1171.            ALF  Y CHR
  1172.            ALF  ISTMA
  1173.            ALF  S
  1174.            ORIG *+20
  1175. *
  1176. START      EQU  *
  1177.            ENT1 0        INITIALIZE COUNTER
  1178. *
  1179. LOOP       EQU  *
  1180.            OUT  MSG(LP)        WRITE IT OUT
  1181.            JBUS *(LP)        WAIT ON I/O
  1182.            INC1 1        R1 := R1 + 1
  1183.            CMP1 =15=        IF (R1 = 15)
  1184.            JE   DONE           THEN DONE
  1185.            JMP  LOOP           ELSE DO IT AGAIN
  1186. *
  1187. DONE       EQU  *
  1188.            HLT            AND A HAPPY NEW YEAR
  1189.            END  START
  1190.  
  1191.  
  1192. -- 
  1193. Theodore Hope
  1194. School of ICS, Georgia Tech, Atlanta GA
  1195. CSNet:    Hope @ GaTech        ARPA:    Hope.GaTech @ CSNet-Relay
  1196. uucp:    ...!{akgua,allegra,rlgvax,sb1,unmvax,ut-ngp,ut-sally}!gatech!Hope
  1197.  
  1198. ==========================================================================
  1199.  
  1200. /* MLisp */
  1201. (Gosling's Emacs editor extension language):
  1202.  
  1203.         (provide-prefix-argument 15 (insert-string "Merry Christmas\n"))
  1204.  
  1205.                     These languages courtesy of:
  1206.                         Pavel Curtis, Cornell
  1207.                         Mike Caplinger, Rice
  1208.  
  1209. ==========================================================================
  1210.  
  1211. /* Modula-2 */
  1212.  
  1213. Module cheers;
  1214. ODULEcheers;
  1215. FROM InOut IMPORT WriteLn, WriteString;
  1216. VAR
  1217.   i    :CARDINAL;
  1218. BEGIN
  1219.   FOR i := 1 TO 15 DO
  1220.     WriteString('Merry Christmas');
  1221.     WriteLn;
  1222.   END;    (*FOR I*)
  1223. END cheers.
  1224.  
  1225.             From: seismo!decvax!decwrl!amd70!fortune!dsd!mush
  1226.  
  1227. ==========================================================================
  1228.  
  1229. /* MTS editor */
  1230.  
  1231. * And here is a weird one written in the MTS editor
  1232. * 
  1233. * the @verify@-lnum says to print the new line without linenumber
  1234. * '*' refers the current line number.
  1235. *
  1236.  
  1237. insert "merry christmas" @verify@-lnum
  1238. copy * to * copies=14 @verify@-lnum
  1239.  
  1240.             ---From: seismo!cmcl2!floyd!ihnp4!alberta!stephen
  1241.  
  1242. ==========================================================================
  1243.  
  1244. /* Mystery Language */
  1245. (Author did not include name and I don't recognize it)
  1246.  
  1247. MODULE Greetings;
  1248. FROM Terminal IMPORT WriteString, WriteLn;
  1249.  
  1250. VAR i: CARDINAL;
  1251.  
  1252. BEGIN
  1253.   FOR i:=1 TO 15 DO
  1254.     WriteString("Merry Christmas");
  1255.     WriteLn;
  1256.   END; (*for*)
  1257. END Greetings.
  1258.  
  1259.         From: seismo!decvax!decwrl!amd70!dual!proper!opje
  1260.  
  1261. ==========================================================================
  1262.  
  1263. /* Newspeak */
  1264.  
  1265. (defproc merry-xmas () (values)
  1266.     (do ((i 1 (1+ i)))
  1267.         (print "Merry Christmas")
  1268.         (exit-do-if (= i 15))))
  1269.      
  1270.         From: John Foderaro (on an h19-u) <ucbvax!ucbkim:jkf>
  1271.  
  1272. ==========================================================================
  1273.  
  1274. /* nroff */
  1275.  
  1276. .nr i 15+1 1
  1277. .de MC
  1278. .if \\n-i \{ .tl ''Merry Christmas''
  1279. .    MC \}
  1280. ..
  1281. .MC
  1282.  
  1283.  
  1284.             R. Drew Davis  pyuxbb!drew
  1285.  
  1286. ==========================================================================
  1287.  
  1288. /* OOPC */
  1289. (an object-oriented preprocessor for C):
  1290.  
  1291. main()
  1292. {
  1293.     int i;
  1294.  
  1295.     for (i=0; i<15; i++)
  1296.         printf("Merry Christmas\n");
  1297. }
  1298.  
  1299. If it looks a lot like C, that's because it is.  The object-oriented features
  1300. are only used when you're dealing with objects (you can use C wherever
  1301. you want).
  1302.  
  1303.  
  1304.     Karl Freburger
  1305.     decvax!ittvax!freb
  1306.  
  1307. ==========================================================================
  1308.  
  1309. /* OPS5 */
  1310.  
  1311. ; A program to print Merry Christmas 15 times, in OPS5.
  1312. ; OPS5 is a simple AI/expert systems language for writing
  1313. ; production systems in.
  1314. (literalize counter value)    ; Analogous to a record declaration.
  1315.                 ; The program:    A single production.
  1316. (p print-one-merry-christmas            ; if
  1317.     (counter ^value {<c> > 0})        ;    counter.value > 0
  1318.     -->                    ; then
  1319.     (write (crlf) Merry Christmas)        ;      write("Merry christmas");
  1320.     (modify 1 ^value (compute <c> - 1)))    ;      counter.value -:= 1;
  1321. (make counter ^value 15)             ; Create a counter with value=15
  1322. (watch 0)                      ; No tracing.
  1323. (run)                        ; Go for it.
  1324.  
  1325. ;                                Ben Hyde, Intermetrics Inc.
  1326.  
  1327. ==========================================================================
  1328.  
  1329. /* Pascal */
  1330.  
  1331. program yuletidings (output);
  1332. const
  1333.     numberofwishes = 15;
  1334. var
  1335.     i : integer;
  1336.  
  1337. begin
  1338.     for i := 1 to numberofwishes do
  1339.         writeln('Merry Christmas');
  1340.     end.
  1341.                     Jim Davies
  1342.                     {pur-ee parsec}!uiucdcs!uiuccsb!davies
  1343.  
  1344. ==========================================================================
  1345.  
  1346. /* PDP-11 assembler */
  1347. (under RT-11)
  1348.  
  1349.     .TITLE    MERRY XMAS
  1350.     .IDENT    /R M/
  1351.     .NLIST    BEX
  1352.     .DSABL    GBL
  1353.     .ENABL    LC
  1354.  
  1355.  
  1356.  
  1357.     .MACLL    .PRINT, .EXIT
  1358.  
  1359.  
  1360.  
  1361. MERRY::
  1362.     MOV    #15.,R4            ;set up the print count
  1363.     .PRINT    #MSG1            ;print the message
  1364.     SOB    R4,MERRY        ;loop until finished
  1365.  
  1366.     .EXIT                ;return to RT-11
  1367.  
  1368. MSG1:    .ASCIZ    /Merry Christmas !!!/
  1369.     .EVEN
  1370.  
  1371.     .END    MERRY
  1372.  
  1373.                 From: seismo!utah-cs!pwa-b!miorelli
  1374.  
  1375. ==========================================================================
  1376.  
  1377. /* PDP-11 assembler */
  1378. (under UNIX)
  1379.  
  1380.         mov    $15.,r4
  1381.     1:
  1382.         mov    $1,r0
  1383.         sys    write; 2f; 3f-2f
  1384.         bcs    1f
  1385.         sob    r4,1b
  1386.         clr    r0
  1387.     1:
  1388.         sys    exit
  1389.     .data
  1390.     2:    <Merry Christmas\n\0>
  1391.     3:
  1392.  
  1393. Jim McKie    Mathematisch Centrum, Amsterdam        ....mcvax!jim
  1394.  
  1395. ==========================================================================
  1396.  
  1397. /*  PL/I  version.  ANS PL/I, subset G.   */
  1398.  
  1399. merry: proc options(main);
  1400.  
  1401. dcl i fixed binary;
  1402.  
  1403. do i = 1 to 15;
  1404.  
  1405.      put skip edit('Merry Christmas') (a);
  1406.  
  1407. end;
  1408.  
  1409. end merry;
  1410.  
  1411.                  --  chip elliott     ...decvax!dartvax!chip
  1412.  
  1413. ==========================================================================
  1414.  
  1415. /* PL/1 */
  1416.  
  1417. START: PROC OPTIONS(MAIN);
  1418. DCL I FIXED BINARY(15);  /* LONG FORM; SAME AS DCL I; */
  1419. DO I = 1 TO 15;
  1420.     PUT EDIT ("Merry Christmas");
  1421. END;
  1422. END START;
  1423.                                                         julie    
  1424.                 seismo!philabs!jah
  1425.  
  1426. ==========================================================================
  1427.  
  1428. /* PL/1 */
  1429.  
  1430. yule: proc options(main);
  1431.  
  1432. %numwish = '15';
  1433.  
  1434. do i = 1,numwish;
  1435.    put skip list('Merry Christmas');
  1436.    end;
  1437.  
  1438. end yule;
  1439.  
  1440.                     Jim Davies
  1441.                     {pur-ee parsec}!uiucdcs!uiuccsb!davies
  1442.  
  1443. ==========================================================================
  1444.  
  1445. /* Pr1me assembly */
  1446.  
  1447.          SEG
  1448.          RLIT
  1449.          SUBR   PRINT
  1450.  
  1451.          LINK
  1452. PRINT    ECB    START
  1453.  
  1454.          DYNM   COUNT
  1455.          PROC
  1456.  
  1457.  
  1458. START    LDA    =15
  1459.          STA    COUNT
  1460.  
  1461. START1   LDA    COUNT
  1462.          BEQ    DONE
  1463.          S1A
  1464.          STA    COUNT
  1465.  
  1466.          CALL   TNOU
  1467.          AP     =C'Merry Christmas',S
  1468.          AP     =15,SL
  1469.  
  1470.          JMP    START1
  1471.  
  1472. DONE     PRTN
  1473.          END
  1474.  
  1475.  
  1476. Jeff Lee
  1477. CSNet:    Jeff @ GATech        ARPA:    Jeff.GATech @ CSNet-Relay
  1478. uucp:    ...!{sb1,allegra,ut-ngp}!gatech!jeff ...!duke!mcnc!msdc!gatech!jeff
  1479.  
  1480. ==========================================================================
  1481.  
  1482. /* Prolog */
  1483.  
  1484.     hello(0) :- !.
  1485.     hello(N) :- M is N - 1, print("Merry Christmas"), hello(M), !.
  1486.     hello(15)!
  1487.  
  1488. (I'm just learning prolog, so my apologies if the style is wrong.)
  1489.  
  1490.                             Aloke Prabhakar
  1491.                             prabhaka@BERKELEY
  1492.                             ucbvax!prabhaka
  1493.  
  1494. ==========================================================================
  1495.  
  1496. /* Prolog */ 
  1497.  
  1498. wmc:- countmc(15).
  1499. countmc(0).
  1500. countmc(Count):- write('Merry Christmas'), nl, Ncnt is Count-1, countmc(Ncnt).
  1501.  
  1502.  
  1503.                     --Peter Borgwardt, U. of Minnesota
  1504.                       borgward.umn-cs@rand-relay
  1505.  
  1506. ==========================================================================
  1507.  
  1508. /* REVE */
  1509. (Equational-programming/term-rewriting system):
  1510.  
  1511. (Has no I/O.  This will look like
  1512.             merry_christmas(merry_christmas(...))
  1513. Also, to avoid having to specify 15 as the fifteenth successor of zero,
  1514. we define addition and multiplication.)
  1515.  
  1516.         (x + 0)     == x
  1517.         (x + s(y))  == (s(x) + y)
  1518.         (x * 0)     == 0
  1519.         (x * s(y))  == (x + (x * y))
  1520.         mc(s(0))    == merry_christmas
  1521.         mc(s(s(x))) == merry_christmas(mc(s(x)))
  1522.         
  1523.         mc( (s(s(s(0))) * s(s(s(s(s(0)))))) )
  1524.  
  1525.                     These languages courtesy of:
  1526.                         Pavel Curtis, Cornell
  1527.                         Mike Caplinger, Rice
  1528.  
  1529. ==========================================================================
  1530.  
  1531. /* *roff */
  1532.  
  1533. Well, the most natural choice for Merry Christmas is of course:
  1534.     V/N/T/DIT/roff.
  1535.  
  1536. This will print it on the standard output, It will give you an extra blank line,
  1537. sorry about that.
  1538.  
  1539.     .fp 1 MC
  1540.     .pl 1
  1541.     .nf
  1542.     .nr l 0 +1
  1543.     .de mm
  1544.     .if \\n+l=15 .rm mm
  1545.     Merry Christmas
  1546.     .mm
  1547.     ..
  1548.     .mm
  1549.  
  1550. The font MC is of course your local ``Merry Christmas font''; all the characters
  1551. are built from christmas trees.
  1552. If you don't want the extra newline you can use the error output:
  1553.  
  1554.     .de mm
  1555.     .if \\nk=14 .ab Merry Christmas
  1556.     .nr k +1
  1557.     .tm Merry Christmas
  1558.     .mm
  1559.     ..
  1560.     .mm
  1561.  
  1562. Of course, you loose the nice look of the MC font.
  1563.  
  1564. There are of course about a dozen other ways to use troff for this.
  1565.  
  1566.                 -- jaap akkerhuis (mcvax!jaap)
  1567.  
  1568. ==========================================================================
  1569.  
  1570. /* QC */
  1571.  
  1572. /*
  1573.  * This program is written in the language QC (quick & clean), a
  1574.  * descendant of QD (quick & dirty). Both languages were written by 
  1575.  * Chris Grey for 370/ systems runing MTS (a user-friendly operating
  1576.  * system).
  1577.  */
  1578. proc main():
  1579. int I;
  1580. extern printf;
  1581.   for I from 1 upto 15 do
  1582.         printf("Merry Christmas")
  1583.   od
  1584. corp
  1585.             ---From: seismo!cmcl2!floyd!ihnp4!alberta!stephen
  1586.  
  1587. ==========================================================================
  1588.  
  1589. /* sed script */
  1590.  
  1591. echo 'Mery Chistma' |
  1592. sed '
  1593.     s/\(..\)\(.\)\(....\)\(.\)\(.\)\(...\)/\1\2\2\3\2\4\5\6\5/
  1594.     h;G;G
  1595.     s/$/\
  1596. /
  1597.     s/.*/&&&&&/
  1598. '
  1599.             From: seismo!decvax!ucbvax!reed!phillips
  1600.  
  1601. ==========================================================================
  1602.  
  1603. /* SETL */
  1604. (Doesn't use any of the interesting features of the language):
  1605.  
  1606.         definef main();
  1607.             (1 <= forall i <= 15) print('Merry Christmas');
  1608.         end main;.
  1609.  
  1610.                     These languages courtesy of:
  1611.                         Pavel Curtis, Cornell
  1612.                         Mike Caplinger, Rice
  1613.  
  1614. ==========================================================================
  1615.  
  1616. /* XEROX sigma-7 assembler */
  1617. (running under CP-V)
  1618.  
  1619.     SYSTEM SIG7
  1620.     SYSTEM BPM
  1621.     REF M:LO
  1622. BUFR    TEXT 'MERRY CHRISTMAS'
  1623. START    LI,4 15
  1624.     M:WRITE M:LO,(BUF,BUFR),(SIZE,15)
  1625.     BDR,4 START+1
  1626.     M:EXIT
  1627.     END START
  1628.  
  1629. or, you can avoid loading the BPM macro's by doing your own FPT
  1630.  
  1631.     SYSTEM SIG7
  1632.     REF M:LO
  1633. BUFR    TEXT 'MERRY CHRISTMAS'
  1634. FPT    GEN,8,24 X'11',M:LO
  1635.     GEN,4,28 3,X'10'
  1636.     DATA BUFR
  1637.     DATA 15
  1638. START    LI,4 15
  1639.     CAL1,1 FPT
  1640.     BDR,4 START
  1641.     CAL1,9 1
  1642.     END START
  1643.  
  1644.                     Bob McQueer
  1645.                     druxt!mcq
  1646.  
  1647. ==========================================================================
  1648.  
  1649. /* Smalltalk-80 */
  1650.  
  1651.     output <- WriteStream on: (String new: 10).
  1652.     1 to 15 do: [
  1653.         output nextPutAll: 'Merry Christmas'.
  1654.         output cr
  1655.     ].
  1656.     output contents.
  1657.  
  1658. Select this from the screen and hit 'printIt', and out comes the message.
  1659.  
  1660.             From: seismo!decvax!ittvax!freb
  1661.  
  1662. ==========================================================================
  1663.  
  1664. /* Smalltalk-80 */
  1665.  
  1666.         merryChristmas: aStream
  1667.             "Prints 'Merry Christmas' on aStream 15 times."
  1668.             
  1669.             15 timesRepeat:
  1670.                 [aStream
  1671.                     nextPutAll: 'Merry Christmas';
  1672.                     cr
  1673.                 ]
  1674.                     These languages courtesy of:
  1675.                         Pavel Curtis, Cornell
  1676.                         Mike Caplinger, Rice
  1677.  
  1678. ==========================================================================
  1679.  
  1680. /* Snobol-3 */
  1681. (Snobol-4??  What's that?  We use Snobol-3 here.)
  1682.  
  1683. * S.D.S. TSS SNOBOL-3
  1684.           N = 1
  1685. LOOP      LOUT = 'MERRY CHRISTMAS'
  1686.           N = .LT(N,15) N + 1                        /S(LOOP)F(.EXIT)
  1687.  
  1688.             From: seismo!rochester!rocksvax!sunybcs!colonel
  1689.  
  1690. ==========================================================================
  1691.  
  1692. /* Snobol 4 */
  1693.  
  1694. * Snobol 4 version.  Not very elegant!
  1695. *
  1696. i = 1
  1697.  
  1698. a: output = 'Merry Christmas'
  1699.    i = i + 1
  1700.    le(i,15)    :s(a)
  1701.  
  1702.                   --  chip elliott     ...decvax!dartvax!chip
  1703.  
  1704. ==========================================================================
  1705.  
  1706. /* SPEED editor */
  1707.  
  1708. To print Merry Christmas 15 times using the SPEED editor from Data General
  1709. (SPEED is a TECO-like editor, $ will represent an escape character, ^D will
  1710. represent a control-D):
  1711.  
  1712. 15<iMerry Christmas
  1713. $>$#t$#k$h^D
  1714.                 Michael Meissner
  1715.                 Data General Corporation
  1716.                 ...{allegra, decvax!ittvax, rocky2}!datagen!mrm
  1717.  
  1718. ==========================================================================
  1719.  
  1720. /* SPL/3000 */
  1721.  
  1722. $Control Uslinit
  1723. Begin
  1724.  
  1725. Byte Array
  1726.    Msg (0:14) := "Merry Christmas";
  1727.  
  1728. Integer
  1729.    I;
  1730.  
  1731. Intrinsic
  1732.    Print, Terminate;
  1733.  
  1734. For I := 1 UNTIL 15 Do
  1735.    Print (Msg, -15, 0);        << 15 bytes, no CCTL >>
  1736.  
  1737. Terminate;
  1738.  
  1739. End.
  1740.  
  1741. From: seismo!harpo!ihnp4!clyde!akgua!emory!gatech!hope
  1742.  
  1743. ==========================================================================
  1744.  
  1745. /* Stage 2 */
  1746.  
  1747. #$#$0 (+-*/)
  1748. END#
  1749. $F0#
  1750. #
  1751. $#
  1752. $10$F7#
  1753. Merry Christmas$F15#
  1754. $F8#
  1755. ##
  1756. 15
  1757. END
  1758.  
  1759.             ---Written and Contributed by Tom Almy, Tektronix, Inc.
  1760.  
  1761. ==========================================================================
  1762.  
  1763. /* Stoic */
  1764. 15 0 DO "Merry Christmas&15&" MSG LOOP
  1765.  
  1766.             ---Written and Contributed by Tom Almy, Tektronix, Inc.
  1767.  
  1768. ==========================================================================
  1769.  
  1770. /* TECO */
  1771.  
  1772. 15<^AMerry Christmas
  1773. ^A>$$
  1774.  
  1775. (where '$' is an Escape, and ^A is a control-A)
  1776.  
  1777.         ---Written and Contributed by Tom Almy, Tektronix, Inc.
  1778.  
  1779. =======================================
  1780.  
  1781. /* TECO */
  1782. (Text Editor COrrector)
  1783.  
  1784. 15<^AMerry Christmas
  1785. ^A>$$
  1786.  
  1787. note: ^A is a Control A
  1788.       $ is an escape character
  1789.  
  1790. And a Happy New Year,
  1791.  
  1792.  
  1793.                 Rob Spray
  1794.  
  1795.                 Software Designer
  1796.  
  1797.                 US Mail:  Computer*Thought Corporation
  1798.                       1721 West Plano Parkway, Suite 125
  1799.                       Plano TX 75075
  1800.                 BellTel:  214-424-3511
  1801.                 ARPAnet:  ROB.CT@RAND-RELAY
  1802.                 uucp:     ... decvax!cornell!ctvax!rob
  1803.  
  1804. ==========================================================================
  1805.     
  1806. /* TECO */
  1807.  
  1808.     :IGMerry Christmas
  1809. $                !* Put string in Q-register G !
  1810.     15<:GG>$$        !* 15 Times, print it out !
  1811.  
  1812. The dollar signs represent ESCapes.
  1813.  
  1814.                 Merry Christmas!
  1815.                     David Kaufman
  1816.                     ...decvax!yale-comix!kaufman
  1817.     
  1818.  
  1819. ==========================================================================
  1820.  
  1821. /* TeX */
  1822. (Knuth's text formatting language, assuming presence of Plain.TeX macros):
  1823.  
  1824.         \def\mc#1{\ifnum #1>0 Merry Christmas\par
  1825.                   {\count0=#1\advance\count0 by-1\mc\count0}\fi}
  1826.         \mc{15}
  1827.  
  1828.                     These languages courtesy of:
  1829.                         Pavel Curtis, Cornell
  1830.                         Mike Caplinger, Rice
  1831.  
  1832. ==========================================================================
  1833.  
  1834. /* TRAC */
  1835.  
  1836. #(ds,Merry-Christmas,(#(eq,arg,0,,(#(PS,Merry Christmas(
  1837. ))#(Merry-Christmas,#(su,arg,1))))))'
  1838. #(ss,Merry-Christmas,arg)'
  1839. #(Merry-Christmas,15)'
  1840.  
  1841. Note: "TRAC" is a trademark of Rockford Research, Inc.
  1842.         ---Written and Contributed by Tom Almy, Tektronix, Inc.
  1843.  
  1844. ==========================================================================
  1845.  
  1846. /* TRAC */
  1847.  
  1848.         #(ds,merry,(#(eq,count,0,,((Merry Christmas
  1849.         )#(cl,merry,#(su,count,1))))))'
  1850.  
  1851.         #(ss,merry,count)'
  1852.  
  1853.         #(cl,merry,15)'
  1854.  
  1855. The TRAC language is a text- and macro-processing language reminiscent
  1856. of LISP.  The first command defines a function, the second marks "count"
  1857. as a dummy argument, the third calls the function.  The printing is done
  1858. by the command interpreter.
  1859.  
  1860.                    Andy Behrens
  1861.                    decvax!dartvax!andyb
  1862.  
  1863. ==========================================================================
  1864.  
  1865. /* TROFF */
  1866.  
  1867.         .de MC
  1868.         .nf
  1869.         .if \\$1>0 \{\
  1870.         Merry Christmas
  1871.         .nr x \\$1
  1872.         .nr x -1
  1873.         .MC \\nx \}
  1874.         ..
  1875.         .MC 15
  1876.  
  1877.                     These languages courtesy of:
  1878.                         Pavel Curtis, Cornell
  1879.                         Mike Caplinger, Rice
  1880.  
  1881. ==========================================================================
  1882.  
  1883. /* Turing */
  1884.  
  1885. ------
  1886. for : 1 .. 15
  1887.     put "Merry Christmas"
  1888. end for
  1889. ------
  1890.  
  1891. Stephen Perelgut    Computer Systems Research Group    University of Toronto
  1892.         Usenet:    {linus, ihnp4, allegra, decvax, floyd}!utcsrgv!perelgut
  1893.  
  1894. ==========================================================================
  1895.  
  1896. /* UL */
  1897.  
  1898. Here's one you probably wouldn't expect to get. It is Model204 User Language
  1899. (UL is a query/programming language for the M204 database system that
  1900. runs on IBM mainframes).
  1901.  
  1902. BEGIN
  1903. %A IF FIXED DP 0
  1904. 1. FOR %A FROM 1 TO 15
  1905.    PRINT 'MERRY CHRISTMAS'
  1906. 2. END
  1907.  
  1908. That's it!
  1909.                 Mickey Levine
  1910.                 decvax!cca!mickey
  1911.  
  1912. ==========================================================================
  1913.  
  1914. /* UNIX shell script */
  1915.  
  1916. echo "Merry Christmas" | sed -e 's/./Merry Christmas%/g' | tr % '\012'
  1917.  
  1918.                          Ben Hyde Intermetrics Inc.
  1919.  
  1920. ==========================================================================
  1921.  
  1922. /* Unix shell script (Bourne) */
  1923.  
  1924. COUNT=0
  1925. while test $COUNT -lt 15
  1926. do
  1927.     echo "Merry Christmas."
  1928.     COUNT=`expr $COUNT + 1`
  1929. done
  1930.  
  1931.             Ta!
  1932.  
  1933.             Dave Ihnat
  1934.             ihuxx!ignatz
  1935.  
  1936. ==========================================================================
  1937.  
  1938. /* VALGOL */
  1939.  
  1940. I didn't look closely, but I didn't see a submission in VALGOL.  Here is an
  1941. attempt, but I can't vouch for its correctness, since I don't know any valley
  1942. girls.  After all, I live in Washington, not California, and we're a little
  1943. behind the times up here.
  1944.  
  1945. Like, gag me with a Merry Christmas!
  1946. No Way! Merry Christmas!
  1947. Like, so totally Merry Christmas!
  1948. Barf me out with a Merry Christmas!
  1949. So gross! Merry Christmas!
  1950.  
  1951.  
  1952. I realize this is only five times, not fifteen, but you can multiprocess in
  1953. VALGOL.  Just get three valley girls and execute the above on each one.
  1954.  
  1955.             From: seismo!cornell!uw-beaver!ssc-vax!fluke!witters
  1956.  
  1957. ==========================================================================
  1958.  
  1959. /* VAX MACRO */
  1960. (VMS flavour...snicker)
  1961.  
  1962. ;
  1963. text:    .ascii    "Merry Christmas"    ; output text
  1964.     .byte    13,10            ; carriage control
  1965.     tlen     = . - text        ; text length
  1966. tty:    .ascid    "TT:"            ; logical name of current terminal
  1967. chan:    .blkw    1            ; storage for IO channel number
  1968.  
  1969.     .entry xmas,^M<r10>
  1970.     $ASSIGN_S    devnam=tty,chan=chan        ;get channel to terminal
  1971.     movl        #1,r10                ;initialize loop
  1972. loop:    $QIOW_S        chan=chan,func=#IO$_WRITELBLK,- ;dump the message
  1973.             P1=text,P2=#tlen
  1974.     aobleq        #15,r10,loop            ;15 times
  1975.     ret
  1976.     .end xmas
  1977.  
  1978.         From: seismo!decvax!microsof!ubc-vision!mprvaxa!tbray
  1979.  
  1980. ==========================================================================
  1981.  
  1982. /* Xerox Data Systems Metasymbol Assembler */    
  1983.  
  1984.          system       sig9
  1985.          system       bpm
  1986.          csect        1
  1987. message  text         'Merry Christmas'
  1988.          ref          m:lo
  1989. start    equ,0        $
  1990.          li,7         15
  1991. loop     equ,0        $
  1992.          m:write      m:lo,(buf,message),(size,15)
  1993.          bdr,7        loop
  1994.          m:exit      
  1995.          end          start
  1996.   
  1997.  
  1998.                                    Jon Bertoni
  1999.  
  2000. ==========================================================================
  2001.  
  2002. /*  XPL version.  (Defined in book "A Compiler Generator".)  */
  2003.  
  2004. dcl i fixed;
  2005.  
  2006. do i = 1 to 15;
  2007.  
  2008.      output = 'Merry Christmas';
  2009.  
  2010. end;
  2011.  
  2012.           --  chip elliott     ...decvax!dartvax!chip
  2013.  
  2014. ==========================================================================
  2015. -- 
  2016.  
  2017.                     Don Davis
  2018.                     JHU/APL
  2019.                 ...decvax!harpo!seismo!umcp-cs!aplvax!ded
  2020.                 ...rlgvax!cvl!umcp-cs!aplvax!ded
  2021.  
  2022.  
  2023. Article 257 of comp.sources.misc:
  2024. Path: puukko!santra!tut!enea!mcvax!uunet!lll-winken!lll-lcc!ames!necntc!ncoast!allbery
  2025. From: peter@sugar.UUCP (Peter da Silva)
  2026. Newsgroups: comp.sources.misc
  2027. Subject: v03i080: Re: v03i076: Just for fun (something which once appeared on the net)
  2028. Message-ID: <8807130507.AA26710@uunet.UU.NET>
  2029. Date: 13 Jul 88 05:07:49 GMT
  2030. Sender: allbery@ncoast.UUCP
  2031. Reply-To: peter@sugar.UUCP (Peter da Silva)
  2032. Lines: 34
  2033. Approved: allbery@ncoast.UUCP
  2034.  
  2035. Posting-number: Volume 3, Issue 80
  2036. Submitted-by: "Peter da Silva" <peter@sugar.UUCP>
  2037. Archive-name: more-xmas
  2038.  
  2039. [Introducing the major motion picture:  THE CHRISTMAS THAT WOULDN'T DIE!  Now
  2040. showing at theaters near you!!!  ;-)  ++bsa]
  2041.  
  2042. Ratfor (from the book, with the DEC F4P Fortran):
  2043.  
  2044.     do(i=1,15) type *, 'Merry Christmas'
  2045.     end
  2046.  
  2047. Ratforth (AKA Fifth, a language I hacked up to make Forth less ugly):
  2048.  
  2049.     define christmas { 
  2050.         do(15,0) { 
  2051.             type(count("Merry Christmas"));
  2052.             CR;
  2053.         }
  2054.     }
  2055.  
  2056. This produces, by the way:
  2057.  
  2058.     : christmas 15 0 do " Merry Christmas" count type CR ;
  2059.  
  2060. AREXX:
  2061.  
  2062.     /* Say Merry Christmas 15 times */
  2063.     do i=1 to 15
  2064.         say 'Merry Christmas'
  2065.         end i
  2066. ---
  2067. -- `-_-' Peter (have you hugged your wolf today?) da Silva.
  2068. --   U   Mail to ...!uunet!sugar!peter, flames to alt.dev.null.
  2069. -- "Running OS/2 on a '386 is like pulling your camper with an Indy car"
  2070.  
  2071.  
  2072.